home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
misc
/
zpoint_3_14.lha
/
zpoint-3.14
/
Rexx
/
MarkReorgNextNew.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
549b
|
32 lines
/*
$VER: MarkReorgNextNew.zprx 1.0 (05.12.94) by Ralph Seichter
ARexx script for Zodiac's Point.
Adds reorg marker to all new messages in current board and
then jumps to the next board with new messages.
*/
PARSE ARG zpPort
ADDRESS VALUE zpPort
OPTIONS RESULTS
whichlevel
IF RESULT = "BOARD" THEN DO
count new
IF RESULT > 0 THEN DO
selectmessage new
markasold
delete later
END
boardmenu
jumptonew down
IF RC THEN
enterboard
ELSE
requestnotify 'No new messages below!'
END
ELSE
requestnotify 'Not inside a board!'
/* EOF */